From: Paul Eggert <eggert@cs.ucla.edu>
Date: Tue, 15 Mar 2011 23:03:11 +0000 (-0700)
Subject: * data.c (Findirect_variable): Name an expression, to avoid
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4366^2~50
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=afd75a0589ac5c0da54b4bc3e5d3b6bc45bc3d30;p=emacs.git

* data.c (Findirect_variable): Name an expression, to avoid

gcc -Wbad-function-cast warning.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 5b62ba5b8c8..296452b538b 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,8 @@
 2011-03-15  Paul Eggert  <eggert@cs.ucla.edu>
 
+	* data.c (Findirect_variable): Name an expression, to avoid
+	gcc -Wbad-function-cast warning.
+
 	* alloc.c (check_cons_list): Do not define unless GC_CHECK_CONS_LIST.
 	(Fmake_vector, Fvector, Fmake_byte_code, Fgarbage_collect):
 	Rename locals to avoid shadowing.
diff --git a/src/data.c b/src/data.c
index d0afca6a09f..288525cf5f5 100644
--- a/src/data.c
+++ b/src/data.c
@@ -805,7 +805,10 @@ variable chain of symbols.  */)
   (Lisp_Object object)
 {
   if (SYMBOLP (object))
-    XSETSYMBOL (object,  indirect_variable (XSYMBOL (object)));
+    {
+      struct Lisp_Symbol *sym = indirect_variable (XSYMBOL (object));
+      XSETSYMBOL (object, sym);
+    }
   return object;
 }